Option Explicit
Sub A_Sample045()
    Dim myRng As Range
    Dim i     As Long
    Dim j     As Long
    i = 4			'ws
    j = 46
    'ǳƨ즹
    Set myRng = Cells(i, j)
    MsgBox myRng.Address
    Set myRng = Nothing		'
End Sub
